00010	DEFINE TABSIZ="9250",LISSIZ="1250",INSIZ="32";
00020	DEFINE TBLSIZ="250";
00040	INTERNAL INTEGER ARRAY TABLES[0:TABSIZ];
00050	INTERNAL INTEGER ARRAY PHLIST,HLIST[00:63];
00060	INTERNAL INTEGER ARRAY LIST[0:LISSIZ];
00070	INTERNAL INTEGER ARRAY FLIST[0:35];
00080	INTERNAL INTEGER ARRAY INNAM[0:INSIZ];
00090	INTERNAL INTEGER ARRAY INCNT,INSUB,INDIV,INRAW,INDAT[0:INSIZ];
00100	INTERNAL INTEGER ARRAY TABLET[0:TBLSIZ],TBLIS[0:TBLSIZ%5];
00110	
00120	
00130	PROCEDURE TABIN(REFERENCE INTEGER INTOT);
00135	BEGIN "TABIN"  INTEGER CHAN1,EOF;
00140	CHAN1←GETCHAN;
00150	 CLOSE(CHAN1);
00160	  OPEN(CHAN1,"DSK",'10,10,0,0,0,EOF);
00170	  LOOKUP(CHAN1,"TABLES.DAT",0);
00180	ARRYIN(CHAN1,INSUB[0],INSIZ);
00190	ARRYIN(CHAN1,INDIV[0],INSIZ);
00200	ARRYIN(CHAN1,INCNT[0],INSIZ);
00210	ARRYIN(CHAN1,INNAM[0],INSIZ);
00220	ARRYIN(CHAN1,FLIST[0],36);
00230	ARRYIN(CHAN1,PHLIST[0],64);
00240	ARRYIN(CHAN1,HLIST[0],64);
00250	ARRYIN(CHAN1,TABLES[0],TABSIZ);
00260	ARRYIN(CHAN1,TABLET[0],TBLSIZ);
00270	
00280	CLOSE(CHAN1);
00290	OPEN(CHAN1,"DSK",'10,10,0,0,0,EOF);
00300	LOOKUP(CHAN1,"SIGLST.DAT",0);
00310	ARRYIN(CHAN1,LIST[0],LISSIZ);
00320	INTOT←WORDIN(CHAN1);
00330	ARRYIN(CHAN1,TBLIS[0],TBLSIZ%5);
00340	RELEASE(CHAN1);
00350	END "TABIN";
00360	
00370	
00380	PROCEDURE TABOUT;
00390	BEGIN "TABOUT"  INTEGER CHAN2,EOF;
00400	CHAN2←GETCHAN;
00410	
00420	CLOSE(CHAN2);
00430	OPEN(CHAN2,"DSK",'10,0,10,0,0,0);
00440	ENTER(CHAN2,"TABLES.DAT",0);
00450	ARRYOUT(CHAN2,INSUB[0],INSIZ);
00460	ARRYOUT(CHAN2,INDIV[0],INSIZ);
00470	ARRYOUT(CHAN2,INCNT[0],INSIZ);
00480	ARRYOUT(CHAN2,INNAM[0],INSIZ);
00490	ARRYOUT(CHAN2,FLIST[0],36);
00500	ARRYOUT(CHAN2,PHLIST[0],64);
00510	ARRYOUT(CHAN2,HLIST[0],64);
00520	ARRYOUT(CHAN2,TABLES[0],TABSIZ);
00530	ARRYOUT(CHAN2,TABLET[0],TBLSIZ);
00540	RELEASE(CHAN2);
00550	END "TABOUT";